home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pcplus.arc / CSERVE.ASP < prev    next >
Encoding:
Text File  |  1988-01-01  |  1.5 KB  |  37 lines
  1. ;*************************************************************************
  2. ;* CSERVE.ASP  (C) 1987 DATASTORM TECHNOLOGIES, INC.                     *
  3. ;*                                                                       *
  4. ;* A sample ASPECT script file for logging onto CompuServe via local     *
  5. ;* CIS number.                                                           *
  6. ;*                                                                       *
  7. ;*************************************************************************
  8.  
  9. ASSIGN S0 "442-4600"       ; enter your local CIS number here
  10. ASSIGN S1 "uuuuu,uuuu"     ; enter your USERID here
  11. ASSIGN S2 "ppppp.pppppp"   ; enter your PASSWORD here
  12.  
  13. EMULATE VT102              ; emulate VT102 terminal
  14.  
  15. IF NOT LINKED              ; If not called via Dial Dir link
  16.    CLEAR
  17.    TIME S8 0
  18.    DATE S9
  19.    FATSAY 0 0 31 "Dialing CompuServe at %s on %s" S8 S9
  20.    SET BAUD 1200            ; configure line settings
  21.    SET PARITY EVEN
  22.    SET DATABITS 7
  23.    SET DUPLEX FULL
  24.    MDIAL S0                 ; Dial CIS
  25. ENDIF
  26.  
  27. PAUSE 3
  28. TRANSMIT "^C"              ; Transmit Ctrl-C
  29. WAITFOR "User ID:"         ; Wait for "User ID:" to come in COM port
  30. TRANSMIT S1                ; Send user ID
  31. TRANSMIT "^M"              ; Send user <CR>
  32. WAITFOR "Password:"        ; Wait for "Password:" to come in COM port
  33. TRANSMIT S2                ; Send password
  34. TRANSMIT "^M"              ; Send <CR>
  35. SET ENQ CISB               ; Turn on auto CIS downloads
  36. ALARM 2                    ; Sound alarm to let you know logon is complete
  37.